home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / programming / e / lsestuff / namnlös.e < prev    next >
Text File  |  1999-11-29  |  390b  |  26 lines
  1. OPT MODULE
  2.  
  3. MODULE '*/leifoo/mythread'
  4.  
  5. OBJECT thread
  6.    mothertask
  7.    isrunning:INT
  8.    proctobethread
  9. ENDOBJECT
  10.  
  11. PROC thread(proc) OF thread
  12.    self.proctobethread := proc
  13.    self.mothertask := FindTask(0)
  14.    self.isrunning := FALSE
  15. ENDPROC
  16.  
  17. PROC start(pri=NIL, tags=NIL) OF thread
  18.    birth(self.proctobethread, pri, tags)
  19. ENDPROC
  20.  
  21. PROC ready() OF thread IS cutstring(self.mothertask)
  22.  
  23.  
  24.  
  25.  
  26.